home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 37
/
Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso
/
Aminet
/
dev
/
misc
/
AWNP_2-39.lha
/
AWNP
/
Install-AWNPipe
< prev
next >
Wrap
Text File
|
1999-07-31
|
2KB
|
88 lines
; $VER: Install_AWeb-II 1.0 11.07.99
; 11 Jul 1999 WHMP
; Description: Installer script for AWNPipe
(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
(set awv 3)
(set awr 1)
(set #needInst43 "You must use Installer version 43 or greater. Use the Installer program from your AWeb-II disk.")
(if (< (/ @installer-version 65536) 43)
(abort #needInst43)
)
(set #welcome
(cat "\n"
"AWNPipe: is more than a pipe.\n\n"
"Along with the standard pipe features AWNPipe"
" has other uses like duplication of a data stream,"
" translating data, clipboard and tooltypes access,"
" building-operating of ClassAct GUIs and more.\n\n"
" Please take a moment and browse the documentation"
" once the instalation is complete."
)
)
(complete 1)
(message #welcome)
(set #destdir-prompt
(cat "Please select the directory where you want the AWNPipe"
" documentation and Examples installed.\n"
"A directory 'AWNP-Docs' will be created here."
)
)
(complete 5)
(set #installing "Installing ")
(copylib
(source "device/awnpipe-handler")
(dest "l:")
(prompt #installing "AWNPipe-handler")
)
(complete 20)
(copyfiles
(dest "Devs:dosdrivers")
(source "device/awnpipe")
(prompt #installing "AWNPipe:")
(infos)
)
(complete 40)
(set defdir
(askdir
(prompt #destdir-prompt)
(help @askdir-help)
(default @default-dest)
)
)
(complete 50)
(makedir (tackon defdir "AWNP-Docs") (infos))
(set @default-dest (tackon defdir "AWNP-Docs"))
(complete 55)
(copyfiles
(dest @default-dest)
(source "AWNP-Docs")
(prompt #installing "AWNPipe: Documentation and Examples")
(all)
)
(protect (tackon @default-dest "Demos/fonttoy") "+s")
(protect (tackon @default-dest "Demos/form") "+s")
(protect (tackon @default-dest "Demos/calist") "+s")
(complete 90)
(working ("Activating AWNPipe:"))
(run "C:assign AWNPipe: dismount")
(run "C:mount AWNPipe:")
(complete 100)
(exit "\n\n AWNPipe:"
" is now installed.\n\n"
"Please send any bug reports or comments to\n"
" William H. M. Parker <bill@amitrix.com> .")